home *** CD-ROM | disk | FTP | other *** search
/ Best of Shareware / Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso / mac / DOS / CAD_CAM / DANCAD2 / DEMO2C.SUB < prev    next >
Text File  |  1990-01-31  |  4KB  |  164 lines

  1. ; DEMO2C.SUB
  2.  
  3. ; Begin make Small Gear
  4.  
  5. TRACE OFF 500 ; just in case is was left on
  6.  
  7. TEXT LOCATE 23 13 ECHO <WORKING: Making the small gear> %%
  8.  
  9. INIT
  10.  
  11. ; tooth
  12.  
  13. ENTER
  14.  231        -61          0   205.768076 -120.91525 0      1    1    0    0
  15.  231        -60          0          231        -57 0      1    1    0    0
  16.  231        -57          0          253        -57 0      1    1    0    0
  17.  253        -57          0          305        -48 0      1    1    0    0
  18.  305        -48          0          331        -39 0      1    1    0    0
  19.  331        -39          0          335        -18 0      1    1    0    0
  20.  231         60          0          231         57 0      1    1    0    0
  21.  231         57          0          253         57 0      1    1    0    0
  22.  253         57          0          305         48 0      1    1    0    0
  23.  305         48          0          331         39 0      1    1    0    0
  24.  331         39          0          335         18 0      1    1    0    0
  25.  335        -18          0          335         18 0      1    1    0    0
  26. 0 0 0  0 0 0  0 0 0 0  { END ENTER }
  27.  
  28.  
  29. :SMALL
  30. # 1 COPY
  31. LET |ELES -> ELEMENTS
  32. # |ELES ROTATE Z 0 0 [ 45 * ( |ELES - 1 ) ]
  33. IF |ELES < 8 THEN GOTO :SMALL
  34. RELEASE |ELES
  35.  
  36. POLYGON 24 24 75 1 1 0 0 ; Hole in small gear.
  37.  
  38. # 0 SAVE 3D TEMP.3D
  39. INIT
  40. LOAD 3D TEMP.3D
  41. RELEASE TEMP.3D
  42.  
  43. # 1 OFFSET C 0 0 -50
  44. # 1 THICKEN Z 100
  45.  
  46. # 0 MAGNIFY Z 1 1 2
  47.  
  48. # 0 SAVE 3D-QUICK SMALL.3D
  49.  
  50. ; End make a Small Gear
  51.  
  52.  
  53.  
  54. ; Start show Small Gear
  55.  
  56. GRAPH_MODE B&W
  57.  
  58. # 0 DISPLAY -11.25 -11.25 0 -1500 1.8 1 0 0
  59.  
  60. LOCATE 1 1 ECHO The Small Gear.  Press [Return].
  61. WAIT
  62.  
  63. ; End show Small Gear
  64.  
  65.  
  66. ; Start Make the Large Gear
  67.  
  68. TEXT LOCATE 23 13 ECHO <WORKING: Making the Large Gear> %%
  69.  
  70. INIT
  71.  
  72. ; tooth
  73.  
  74. ENTER
  75.  488        -65          0   475.727636 -126.69733 0  1 1 0 0
  76.  488        -65          0          491        -58 0  1 1 0 0
  77.  491        -58          0          526        -57 0  1 1 0 0
  78.  526        -57          0          561        -51 0  1 1 0 0
  79.  561        -51          0          598        -40 0  1 1 0 0
  80.  598        -40          0          604          0 0  1 1 0 0
  81.  488         65          0          491         58 0  1 1 0 0
  82.  491         58          0          526         57 0  1 1 0 0
  83.  526         57          0          561         51 0  1 1 0 0
  84.  561         51          0          598         40 0  1 1 0 0
  85.  598         40          0          604          0 0  1 1 0 0
  86. 0 0 0  0 0 0  0 0 0 0  { END ENTER }
  87.  
  88.  
  89. :LARGE
  90. # 1 COPY
  91. LET |ELES -> ELEMENTS
  92. # |ELES ROTATE Z 0 0 [ 22.5 * ( |ELES - 1 ) ]
  93. IF |ELES < 16 THEN GOTO :LARGE
  94. RELEASE |ELES
  95.  
  96. POLYGON 24 24 75 1 1 0 0  ; Hole.
  97.  
  98. # 0 SAVE 3D TEMP.3D
  99. INIT
  100. LOAD 3D TEMP.3D
  101. RELEASE TEMP.3D
  102.  
  103. # 1 OFFSET C 0 0 -50
  104. # 1 THICKEN Z 100
  105.  
  106. # 0 MAGNIFY Z 1 1 2
  107.  
  108. # 0 SAVE 3D-Quick LARGE.3D
  109.  
  110. ; End of Make Large Gear
  111.  
  112.  
  113. ; Start show Large Gear
  114.  
  115. GRAPH_MODE B&W
  116.  
  117. # 0 DISPLAY -11.25 -11.25 0 -2000 .9 1 0 0
  118.  
  119. LOCATE 1 1 ECHO The Large Gear.  Press [Return].
  120. WAIT
  121.  
  122. ; End show Large Gear
  123.  
  124.  
  125. ; Begin Show Gears Pair Still
  126.  
  127. TEXT LOCATE 25 12 ECHO <WORKING: Making the Gear Pair> %%
  128.  
  129. INIT
  130.  
  131. LOAD 3D-QUICK SMALL.3D # 1 OFFSET C -302 0 0 # 1 ROTATE C 0 0 22.5
  132. LOAD 3D-QUICK LARGE.3D # 2 OFFSET C  552 0 0
  133. FILES ERASE SMALL.3D
  134. FILES ERASE LARGE.3D
  135.  
  136. ; Border, this was drawn in [F] (front) from main menu and brought in
  137. ; by saving it ASCII and reading it in with ^K^R. It could just as well
  138. ; be on a file, but this saves disk space.
  139.  
  140. ENTER
  141. -955 -648 0  955 -648 0 1 1 0 0
  142.  955 -648 0  955  648 0 1 1 0 0
  143.  955  648 0 -955  648 0 1 1 0 0
  144. -955  648 0 -955 -648 0 1 1 0 0
  145. 0 0 0 0 0 0  0 0 0 0
  146.  
  147. LETTERING
  148. DANCAD 3D
  149. -900 555 0 0 0 0 80 80  3 1 0 0  0 .4 .35 1 F P DANCAD3D.FON
  150.  
  151. GRAPH_MODE B&W
  152.  
  153. # 1 Display 0 -18 0 -4000 .88 1 -320 0
  154. # 2 Display 0 -18 0 -4000 .88 1 -320 0
  155. # 3 Display 0  0  0 -1E18  1  1    0 0
  156. # 4 Display 0  0  0 -1E18  1  1    0 0
  157.  
  158. LOCATE 2 2 ECHO Press [Return].
  159. WAIT
  160.  
  161. ; End Show Gears Pair Still
  162.  
  163. ; END
  164.